home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO009.dsk / MISC / STAR.WARS.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  46 lines
  1. 100  REM   -------------------------
  2. 110  REM    STARWARS THEME
  3. 120  REM   ------------------------
  4. 130  REM  
  5. 140  REM   HERE'S A PROGRAM I FOUND WHILE BROWSING IN A BOOKSTORE IN
  6. 150  REM  THE SILICON VALLEY.  THE BOOK I FOUND CONTAINS A COLLECTION
  7. 160  REM  OF PROGRAMMING TIPS, TRICKS, AND TECHNIQUES FOR THE APPLE 2+,
  8. 170  REM  2E, & 2C.  
  9. 180  REM  
  10. 190  REM  ITS A BOOK FULL OF INTERESTING PROGRAMS ON PROGRAMMING,
  11. 200  REM  ON GRAPHICS AND SOUND.
  12. 210  REM  
  13. 220  REM  NUTS AND BOLTS STUFF! THE FOOD FOR WEEKEND PROGRAMMERS
  14. 230  REM  LIKE MYSELF. 
  15. 240  REM  
  16. 250  REM        THE BOOK.  APPLESOFT BASIC SUBROUTINES & SECRETS
  17. 260  REM                   HAYDEN PUBLISHERS.
  18. 270  REM  
  19. 280  REM                   10/09/85  PW  76324,2336 
  20. 290  REM  
  21. 295  REM        THE PROGRAM. THE THEME FROM STARWARS.           
  22. 296  REM  
  23. 297  REM   ------------------------
  24. 300  REM   
  25. 330  FOR L = 770 TO 790: READ V: POKE L,V: NEXT L
  26. 340  TEXT : HOME 
  27. 350  VTAB 12: HTAB 14: PRINT "STAR WARS"
  28. 360  READ N
  29. 370  FOR X = 1 TO N
  30. 380  READ F,D
  31. 385  REM   THE TEMPO CAN BE CHANGED BY VARYING THE FACTOR IN LINE  
  32. 386  REM   390 FROM 3.0 TO 2.0, OR 3.5
  33. 390 D = D *3
  34. 400  IF D >255  THEN DU = D:FL = 1:D = 255
  35. 410  POKE 768,F: POKE 769,D: CALL 770
  36. 420  IF FL = 1  THEN  FOR Z = 1 TO DU -255: NEXT Z:FL = 0
  37. 430  NEXT X
  38. 440  END 
  39. 450  REM   SOUND ROUTINE DATA
  40. 460  DATA   173,48,192,136,208,5,206,1,3,240,9
  41. 470  DATA   202,208,245,174,0,3,76,2,3,96
  42. 480  REM   FREQUENCY,DURATION
  43. 490  DATA   42: REM   NUMBER OF NOTES
  44. 500  DATA    170,21,170,21,170,21,128,127,85,127,96,21,102,21,114,21,64,127,85,64,96,21,102,21,114,21
  45. 510  DATA    64,127,85,64,96,21,102,21,96,21,114,127,170,21,170,21,170,21,128,127,85,127,96,21,102,21,114,21      
  46. 520  DATA    64,127,85,64,96,21,102,21,114,21,64,127,85,64,96,21,102,21,114,21,128,64,128,21,128,21,128,21,128,64